home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 September & October / Amiga-CD 1996 #9-10.iso / grafik / anims-95 / 304-kopieren < prev    next >
AmigaDOS Script File  |  1996-07-19  |  1KB  |  37 lines
  1. .key copytarget
  2. .bra {
  3. .ket }
  4. ; Kopierscript für SSA-Animationen des AMIGA-Magazins
  5. ; © MagnaMedia Verlag AG, AMIGA-Magazin
  6. cd >env:ssa-org{$$}
  7. assign >nil: ssa-org: `getenv ssa-org{$$}`
  8. if "{copytarget}" EQ ""
  9.     unset bla
  10.     :c/Requestfile20 RAM: TITLE "Benötige 38316500 Bytes im Zielverzeichnis" DRAWERSONLY >env:bla
  11.     if warn
  12.        quit 0
  13.     endif
  14. .def copytarget $bla
  15. endif
  16. :c/checkdevavail {copytarget} 38316500
  17. if warn
  18.     :c/requestchoice20 >nil: Information "Nicht genug Platz vorhanden!" OK
  19. else
  20.     copy >nil: ssa-org:304_Clip#? {copytarget}
  21.     copy >nil: ssa-org:hwparty.MOD {copytarget}
  22.     cd {copytarget}
  23.     if not exists SSAMultiplay
  24.         copy >nil: ssa-org:SSAMultiplay/#? all SSAMultiPlay
  25.     endif
  26.     cd ssa-org:
  27.     if not exists "env:request"
  28.         :c/requestchoice20 >nil: Information "Kopiervorgang beendet!" OK
  29.     else
  30.         if "`getenv request`" EQ "YES"
  31.             :c/requestchoice20 >nil: Information "Kopiervorgang beendet!" OK
  32.         endif
  33.     endif
  34. endif
  35. assign >nil: ssa-org: remove
  36. unsetenv ssa-org{$$}
  37.